500
How can I select a column
with thisform.G2antt1
	.MarkSearchColumn = .F.
	.SingleSel = .F.
	.FullRowSelect = 1
	.Columns.Add("Column1").Selected = .T.
	.Columns.Add("Column2")
	with .Items
		.DefaultItem = .AddItem("One")
		.CellValue(0,1) = "One"
	endwith
	with .Items
		.DefaultItem = .AddItem("Two")
		.CellValue(0,1) = "Two"
	endwith
	.Items.SelectAll
endwith
499
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened
with thisform.G2antt1
	.Object.DefaultEditorOption(20) = 0
	.Object.DefaultEditorOption(21) = 0
	.Object.DefaultEditorOption(22) = 0
	.Object.DefaultEditorOption(23) = 0
	.Object.DefaultEditorOption(24) = 0
	.Object.DefaultEditorOption(25) = 0
	.Object.DefaultEditorOption(26) = 0
	.Object.DefaultEditorOption(27) = 0
	.Columns.Add("Edit").Editor.EditType = 1
	.Columns.Add("Edit").Editor.EditType = 1
	with .Items
		.DefaultItem = .AddItem(0)
		.CellValue(0,1) = 1
	endwith
	with .Items
		.DefaultItem = .AddItem(2)
		.CellValue(0,1) = 3
	endwith
endwith
498
How can I expand predefined items in a drop down list editor as I type

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown")
		.Def(17) = 1
		with .Editor
			.Option(38) = .T.
			.EditType = 3
			.DropDownAutoWidth = 0
			.AddItem(1,"<b>CObject</b> class",1)
			.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
			.InsertItem(3,"<b>CWnd</b> class",3,2)
			.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
			.AddItem(4,"Exceptions",1)
			.InsertItem(7,"<b>System</b> Exceptions",2,4)
			.AddItem(5,"File Services",2)
		endwith
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
497
How can I add an extra button to a date picker editor

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.DefaultItemHeight = 20
	with .Columns.Add("Date").Editor
		.EditType = 7
		.AddButton("B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1")
		.ButtonWidth = 20
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
	endwith
endwith
496
How can I add an extra button to a spin editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.DefaultItemHeight = 20
	with .Columns.Add("Date").Editor
		.EditType = 4
		.AddButton("B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1")
		.ButtonWidth = 20
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
	endwith
endwith
495
How can I remove or delete the buttons in the editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
		.RemoveButton("B1")
		.ButtonWidth = 20
	endwith
	with .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	endwith
endwith
494
How can I hide the buttons in the editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.DefaultItemHeight = 24
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
		.ButtonWidth = 0
	endwith
	with .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	endwith
endwith
493
How can I change the width of the buttons in the editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.DefaultItemHeight = 24
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
		.ButtonWidth = 24
	endwith
	with .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	endwith
endwith
492
How can I add extra buttons to an editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("Edit").Editor
		.EditType = 1
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2")
		.AddButton("B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
	endwith
	with .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	endwith
endwith
491
is there any function to specify the number of rows / items being visible in a drop down list editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.DropDownRows = 1
		.PopupAppearance = 1
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
490
How can I change the border for a drop down editor
with thisform.G2antt1
	with .Columns.Add("Date").Editor
		.EditType = 7
		.PopupAppearance = 1
	endwith
	.Items.AddItem("Today")
	with .Items
		.CellEditor(.AddItem("Today"),0).EditType = 7
	endwith
endwith
489
How can I remove a predefined item in a drop down editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 17
		.Option(4) = .T.
		.RemoveItem(255)
	endwith
	.Items.AddItem(255)
	.Items.AddItem(65280)
endwith
488
How can I remove or clear all predefined items in a drop down editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 17
		.ClearItems
		.AddItem(255,"Red Color")
	endwith
	.Items.AddItem(255)
endwith
487
How can I center the predefined items in a drop down editor editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.DropDownAlignment = 1
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
486
How can I right align the items in a drop down editor editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.DropDownAlignment = 2
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
485
How can I specify the width of the drop down editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.DropDownAutoWidth = 0
		.DropDownMinWidth = 385
		.EditType = 17
	endwith
	with .Items
		.AddItem(255)
		.AddItem(65280)
	endwith
endwith
484
How can hide the drop down button for an editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.DropDownVisible = .F.
		.EditType = 17
	endwith
	with .Items
		.AddItem(255)
		.AddItem(65280)
	endwith
endwith
483
How can assign a tooltip to a drop down list editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
		.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
		.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
482
How can I lock, disable make read only an editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.Locked = .T.
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
481
How can I sort the items in a drop down list editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"Second item")
		.AddItem(2,"First item")
		.AddItem(3,"Third item")
		.SortItems(.T.)
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
480
How can I expand an item in the tree or a hierarchy of a drop down editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown")
		.Def(17) = 1
		with .Editor
			.EditType = 3
			.DropDownAutoWidth = 0
			.AddItem(1,"<b>CObject</b> class",1)
			.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
			.InsertItem(3,"<b>CWnd</b> class",3,2)
			.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
			.AddItem(4,"Exceptions",1)
			.InsertItem(7,"<b>System</b> Exceptions",2,4)
			.AddItem(5,"File Services",2)
			.ExpandItem(1) = .T.
		endwith
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
479
How can I display a tree or a hierarchy in a drop down editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown")
		.Def(17) = 1
		with .Editor
			.EditType = 3
			.DropDownAutoWidth = 0
			.AddItem(1,"<b>CObject</b> class",1)
			.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
			.InsertItem(3,"<b>CWnd</b> class",3,2)
			.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
			.AddItem(4,"Exceptions",1)
			.InsertItem(7,"<b>System</b> Exceptions",2,4)
			.AddItem(5,"File Services",2)
			.ExpandAll
		endwith
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
478
How can I look for items that includes the typed characters in a drop down list editor
with thisform.G2antt1
	with .Columns.Add("DropDown").Editor
		.Option(39) = 1
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
477
How can I keep the selection background color while editor is visible

with thisform.G2antt1
	.SelBackColor = RGB(255,0,0)
	with .Columns.Add("DropDown").Editor
		.Option(45) = .T.
		.EditType = 3
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
476
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown").Editor
		.Option(37) = 1
		.EditType = 3
		.AddItem(1,"First item",1)
		.AddItem(2,"Second item",3)
		.AddItem(3,"Third item",2)
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
475
How can I automatically drop down the list editor, when the user starts typing in the editor
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown").Editor
		.Option(37) = -1
		.EditType = 3
		.AddItem(1,"First item",1)
		.AddItem(2,"Second item",3)
		.AddItem(3,"Third item",2)
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
474
How can I add a Font editor
with thisform.G2antt1
	.Columns.Add("Font").Editor.EditType = 10
	.Items.AddItem("Tahoma")
endwith
473
How can I change the visual appearance for the buttons in the calculator editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 21
		.Option(105) = thisform.G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.Option(106) = thisform.G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	endwith
	.Items.AddItem(10)
endwith
472
How can I customize the caption of buttons in the calculator editor

with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 21
		.Option(104) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
	endwith
	.Items.AddItem(10)
endwith
471
How can I customize the caption of buttons in the calculator editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 21
		.Option(104) = "0;1;2;3;4;5;6;7;8;9"
	endwith
	.Items.AddItem(10)
endwith
470
How can I specify the width and height of the buttons in the calculator editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 21
		.Option(102) = 32
		.Option(103) = 32
	endwith
	.Items.AddItem(10)
endwith
469
How can I change the "Cannot divide by zero" message that shows in the calculator editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 21
		.Option(101) = "Divizion by zero"
	endwith
	.Items.AddItem(10)
endwith
468
How can I enable or disable executing operations while the calculator editor is focused and closed
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 21
		.Option(100) = .F.
	endwith
	.Items.AddItem(10)
endwith
467
How can I add a calculator editor

with thisform.G2antt1
	.Columns.Add("Slider").Editor.EditType = 21
	.Items.AddItem(10)
endwith
466
How can I edit a number between a range or interval
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 20
		.Numeric = -1
		.Option(40) = 0
		.Option(41) = 0
		.Option(43) = 5
		.Option(44) = 15
	endwith
	.Items.AddItem(10)
endwith
465
How can I hide or show the spin in the slider or track bar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 20
		.Option(40) = 0
	endwith
	.Items.AddItem(10)
endwith
464
How can I add a slider or track bar editor, with a fixed size
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 20
		.Option(41) = 64
	endwith
	.Items.AddItem(10)
endwith
463
How can I add a slider or track bar editor, so it covers half of the cell
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 20
		.Option(41) = -50
	endwith
	.Items.AddItem(10)
endwith
462
How can I add a slider or track bar editor, so it covers the full cell
with thisform.G2antt1
	var_Editor = .Columns.Add("Slider").Editor
	with var_Editor
		.EditType = 20
		.Option(41) = -100
	endwith
	.Items.AddItem(10)
endwith
461
How can I add a slider or track bar editor within a range or interval of numbers
with thisform.G2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	with var_Editor
		.EditType = 20
		.Numeric = -1
		.Option(43) = 5
		.Option(44) = 15
	endwith
	.Items.AddItem(10)
endwith
460
How can I add a slider or track bar editor within a range or interval of float numbers
with thisform.G2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	with var_Editor
		.EditType = 20
		.Numeric = 1
		.Option(43) = 0
		.Option(44) = 1
		.Option(40) = "0.01"
		.Option(42) = "0.01"
	endwith
	.Items.AddItem("0.3")
endwith
459
How can I add a spin editor within a range or interval of float numbers
with thisform.G2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	with var_Editor
		.EditType = 20
		.Numeric = 1
		.Option(41) = 0
		.Option(43) = 0
		.Option(44) = 1
		.Option(40) = "0.01"
	endwith
	.Items.AddItem("0.3")
endwith
458
How can I add a spin editor within a range or interval of numbers
with thisform.G2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	with var_Editor
		.EditType = 20
		.Numeric = -1
		.Option(41) = 0
		.Option(43) = 5
		.Option(44) = 15
	endwith
	.Items.AddItem(10)
endwith
457
How can I add a slider or track bar editor
with thisform.G2antt1
	.Columns.Add("Slider").Editor.EditType = 20
	.Items.AddItem(10)
endwith
456
I have check box column, but the check-boxes looks disabled. What can I do
with thisform.G2antt1
	var_Editor = .Columns.Add("Check").Editor
	with var_Editor
		.EditType = 19
		.Option(17) = 1
	endwith
	with .Items
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
	endwith
endwith
455
How do I add check box column, so the cell value is changed as I click the cells
with thisform.G2antt1
	.MarkSearchColumn = .F.
	with .Columns.Add("C")
		.Width = 18
		.AllowSizing = .F.
		with .Editor
			.EditType = 19
			.Option(17) = 1
		endwith
	endwith
	.Columns.Add("Text")
	with .Items
		.DefaultItem = .AddItem(.F.)
		.CellValue(0,1) = "Check 1"
		.DefaultItem = .AddItem(.T.)
		.CellValue(0,1) = "Check 2"
		.DefaultItem = .AddItem(.F.)
		.CellValue(0,1) = "Check 3"
	endwith
endwith
454
How do I add check box column, so the cell value is changed as I click the cells
with thisform.G2antt1
	.Columns.Add("Check").Editor.EditType = 19
	with .Items
		.AddItem(.F.)
		.AddItem(.T.)
		.AddItem(.F.)
	endwith
endwith
453
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control

with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 18
		.Option(9) = .F.
	endwith
	with .Items
		.DefaultItem = .AddItem(var_s)
		.CellSingleLine(0,0) = .F.
	endwith
endwith
452
How do I add a vertical scroll bar for a memo or a multiple lines edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 18
		.Option(2) = .T.
	endwith
	with .Items
		.DefaultItem = .AddItem(var_s)
		.CellSingleLine(0,0) = .F.
	endwith
endwith
451
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 18
		.Option(1) = .T.
	endwith
	with .Items
		.DefaultItem = .AddItem(var_s)
		.CellSingleLine(0,0) = .F.
	endwith
endwith
450
How can I specify the width or the height for a drop down memo or a multiple lines edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 18
		.Option(7) = 256
		.Option(8) = 64
	endwith
	with .Items
		.DefaultItem = .AddItem("This is a long text that should break the line, and get it displayed on multiple lines.")
		.CellSingleLine(0,0) = .F.
	endwith
endwith
449
How do I add a drop down memo or a multiple lines edit control
with thisform.G2antt1
	.Columns.Add("Edit").Editor.EditType = 18
	with .Items
		.DefaultItem = .AddItem("This is a long text that should break the line, and get it displayed on multiple lines.")
		.CellSingleLine(0,0) = .F.
	endwith
endwith
448
How do I add a color list editor with my own or custom colors
with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 17
		.Option(4) = .T.
		.ClearItems
		.AddItem(255,"Red Color")
		.AddItem(16711680,"Blue Color")
		.AddItem(65280,"Green Color")
	endwith
	.Items.AddItem(255)
endwith
447
How do I add a color list editor with my own or custom colors

with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 17
		.ClearItems
		.AddItem(255,"Red Color")
		.AddItem(16711680,"Blue Color")
		.AddItem(65280,"Green Color")
	endwith
	.Items.AddItem(255)
endwith
446
How can I show the color's name in a color list editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 17
		.Option(4) = .T.
	endwith
	.Items.AddItem(255)
endwith
445
How do I add a color list editor
with thisform.G2antt1
	.Columns.Add("Color").Editor.EditType = 17
	.Items.AddItem(255)
endwith
444
How can I access my own custom or ActiveX editor

with thisform.G2antt1
	.DrawGridLines = -1
	.DefaultItemHeight = 128
	with .Columns.Add("DropDown").Editor
		.EditType = 16
		.UserEditor("MSCAL.Calendar","")
		with .UserEditorObject
			.BackColor = RGB(255,255,255)
			.GridCellEffect = 0
			.ShowTitle = .F.
			.ShowDateSelectors = .F.
		endwith
	endwith
	with .Items
		.AddItem("MSCal.Calendar")
		.AddItem("MSCal.Calendar")
	endwith
endwith
443
How can I add my own custom or ActiveX editor
with thisform.G2antt1
	.DrawGridLines = -1
	.DefaultItemHeight = 128
	with .Columns.Add("DropDown").Editor
		.EditType = 16
		.UserEditor("MSCAL.Calendar","")
	endwith
	with .Items
		.AddItem("MSCal.Calendar")
		.AddItem("MSCal.Calendar")
	endwith
endwith
442
How can I add a hyperlink editor
with thisform.G2antt1
	.Columns.Add("Shell.Execute").Editor.EditType = 15
	.Items.AddItem("http://www.exontrol.com")
	.Items.AddItem("c:\")
endwith
441
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select

with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown").Editor
		.EditType = 14
		.AddItem(1,"The first item",1)
		.AddItem(2,"The second item",3)
		.AddItem(3,"The third item",2)
	endwith
	with .Items
		.AddItem("The first item")
		.AddItem("The third item")
	endwith
endwith
440
How can I show or hide the rectangle arround progress bar editor

with thisform.G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	with var_Editor
		.EditType = 13
		.Option(13) = .F.
	endwith
	.Items.AddItem(33)
endwith
439
How can I hide the caption / percent in the progress bar editor
with thisform.G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	with var_Editor
		.EditType = 13
		.Option(12) = -1
	endwith
	.Items.AddItem(33)
endwith
438
How can I align the caption in the center of the progress bar editor
with thisform.G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	with var_Editor
		.EditType = 13
		.Option(12) = 1
	endwith
	.Items.AddItem(33)
endwith
437
How can I align the caption to the right in the progress bar editor
with thisform.G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	with var_Editor
		.EditType = 13
		.Option(12) = 2
	endwith
	.Items.AddItem(33)
endwith
436
How can I change the background color for a progress bar editor
with thisform.G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	with var_Editor
		.EditType = 13
		.Option(11) = 255
	endwith
	.Items.AddItem(33)
endwith
435
How can I add a progress bar editor
with thisform.G2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	.Columns.Add("Progress").Editor.EditType = 13
	.Items.AddItem(33)
endwith
434
How can I add a button editor
with thisform.G2antt1
	.Columns.Add("Button").Editor.EditType = 12
	.Items.AddItem("Just a text")
endwith
433
How can I show or hide the type of the OLE Object for Photo or a Picture editor

with thisform.G2antt1
	.ColumnAutoResize = .F.
	with .Columns.Add("Photo")
		.Width = 74
		with .Editor
			.EditType = 11
			.Option(52) = .F.
		endwith
	endwith
	with .Items
		h = .AddItem()
		.DefaultItem = h
		.CellValue(0,0) = thisform.G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.DefaultItem = h
		.ItemHeight(0) = 64
	endwith
endwith
432
How can I add a Photo or a Picture editor

with thisform.G2antt1
	.Columns.Add("Photo").Editor.EditType = 11
	with .Items
		h = .AddItem()
		.DefaultItem = h
		.CellValue(0,0) = thisform.G2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.DefaultItem = h
		.ItemHeight(0) = 64
	endwith
endwith
431
How can I hide or show the "System" page in the color editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 9
		.Option(6) = .F.
	endwith
	.Items.AddItem(255)
endwith
430
How can I hide or show the "Palette" page in the color editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Color").Editor
	with var_Editor
		.EditType = 9
		.Option(5) = .F.
	endwith
	.Items.AddItem(255)
endwith
429
How do I add a color editor

with thisform.G2antt1
	.Columns.Add("Color").Editor.EditType = 9
	.Items.AddItem(255)
endwith
428
How do I change the masking character
with thisform.G2antt1
	var_Editor = .Columns.Add("Mask").Editor
	with var_Editor
		.EditType = 8
		.Mask = "###"
		.MaskChar = 48
	endwith
	.Items.AddItem("")
endwith
427
How do I mask an IP
with thisform.G2antt1
	var_Editor = .Columns.Add("IP").Editor
	with var_Editor
		.EditType = 8
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	endwith
	.Items.AddItem("1.2.3.4")
endwith
426
How do I add a mask editor

with thisform.G2antt1
	var_Editor = .Columns.Add("Mask").Editor
	with var_Editor
		.EditType = 8
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	endwith
	.Items.AddItem("1.2.3.4")
endwith
425
How to show or hide the week numbers header in a drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(47) = .T.
	endwith
	.Items.AddItem("Today")
endwith
424
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(35) = .F.
	endwith
	.Items.AddItem("Today")
endwith
423
How do highlight the "Today" date is the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(34) = .T.
	endwith
	.Items.AddItem("Today")
endwith
422
How do I show or hide the "Today" button is the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(33) = .F.
	endwith
	.Items.AddItem("Today")
endwith
421
How to specify the first day of the week in the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(32) = 1
	endwith
	.Items.AddItem("Today")
endwith
420
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(31) = "Du Lu Ma Mi Jo Vi Si"
	endwith
	.Items.AddItem("Today")
endwith
419
How can I change the name of the months in the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(30) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
	endwith
	.Items.AddItem("Today")
endwith
418
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(29) = "Azi"
	endwith
	.Items.AddItem("Today")
endwith
417
How can allow empty date to drop down date picker control or a calendar control

with thisform.G2antt1
	var_Editor = .Columns.Add("Date").Editor
	with var_Editor
		.EditType = 7
		.Option(14) = .T.
	endwith
	with .Items
		.AddItem({^2012-5-12})
		.AddItem("")
		.AddItem({^2012-5-14})
	endwith
endwith
416
How can I a drop down date picker control or a calendar control
with thisform.G2antt1
	.Columns.Add("Date").Editor.EditType = 7
	with .Items
		.AddItem("Today")
	endwith
endwith
415
How can I have an OR combination of my bit values, something like a check-box list editor

with thisform.G2antt1
	with .Columns.Add("CkeckList")
		.Def(17) = 1
		with .Editor
			.EditType = 6
			.AddItem(1,"Bit <b>1</b>")
			.AddItem(2,"Bit <b>2</b>")
			.AddItem(4,"Bit <b>3</b>")
			.AddItem(8,"Bit <b>4</b>")
			.AddItem(16,"Bit <b>5</b>")
			.AddItem(32,"Bit <b>6</b>")
			.AddItem(64,"Bit <b>7</b>")
			.AddItem(128,"Bit <b>8</b>")
		endwith
	endwith
	with .Items
		.AddItem(112)
		.AddItem(2)
	endwith
endwith
414
How do I stop resizing the memo or a multiple lines edit control, while the user types
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 5
		.Option(3) = .F.
		.Option(1) = .T.
		.Option(2) = .T.
	endwith
	with .Items
		.DefaultItem = .AddItem(var_s)
		.CellSingleLine(0,0) = .F.
	endwith
endwith
413
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 5
		.Option(1) = .T.
	endwith
	with .Items
		.DefaultItem = .AddItem(var_s)
		.CellSingleLine(0,0) = .F.
	endwith
endwith
412
How do I add a vertical scroll bar for a memo or a multiple lines edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 5
		.Option(2) = .T.
	endwith
	with .Items
		.DefaultItem = .AddItem(var_s)
		.CellSingleLine(0,0) = .F.
	endwith
endwith
411
How do I add a memo or a multiple lines edit control
with thisform.G2antt1
	.Columns.Add("Edit").Editor.EditType = 5
	with .Items
		.DefaultItem = .AddItem("This is a long text that should break the line, and get it displayed on multiple lines.")
		.CellSingleLine(0,0) = .F.
	endwith
endwith
410
How to specify the proposed change when the user clicks a spin control.
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 4
		.Numeric = -1
		.Option(40) = 10
	endwith
	with .Items
		.AddItem(0)
		.AddItem(10)
		.AddItem(20)
	endwith
endwith
409
How do I add a spin editor that allows only integer values
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 4
		.Numeric = -1
	endwith
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
408
How do I add a spin editor
with thisform.G2antt1
	.Columns.Add("Edit").Editor.EditType = 4
	with .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
407
How do I specify in a drop down list editor, that I do not want to have predefined icon
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"The first item",1)
		.AddItem(2,"The second item",3)
		.AddItem(3,"The third item",2)
		.Option(28) = .F.
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
406
How do I add a drop down editor, that allows only predefined values
with thisform.G2antt1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Columns.Add("DropDown").Editor
		.EditType = 3
		.AddItem(1,"The first item",1)
		.AddItem(2,"The second item",3)
		.AddItem(3,"The third item",2)
	endwith
	with .Items
		.AddItem(1)
		.AddItem(2)
	endwith
endwith
405
How to allow the editor to work on insert or overtype mode
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 1
		.Option(200) = .T.
		.Option(201) = .T.
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
endwith
404
How to set foreground color for a locked, or read only edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 1
		.Locked = .T.
		.Option(51) = 8421504
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
endwith
403
How to set background color for a locked, or read only edit control
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 1
		.Locked = .T.
		.Option(50) = 8421504
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
endwith
402
How to set the number of characters selected, when an EditType editor is opened
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 1
		.Option(49) = 1
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
endwith
401
How to set the starting point of text selected, when an EditType editor is opened
with thisform.G2antt1
	var_Editor = .Columns.Add("Edit").Editor
	with var_Editor
		.EditType = 1
		.Option(48) = 1
		.Option(49) = 1
	endwith
	with .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	endwith
endwith